home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
BIO.DIR
/
00072_Script_72
< prev
next >
Wrap
Text File
|
1996-04-01
|
2KB
|
85 lines
on startMovie
global bioHiliteSprite
setAuxiliarySearch
-- stopplayingLoadingSound
set bioHiliteSprite = 15
global originalFrame
set originalFrame = empty
normalCursor
global alreadyViewedBiography
if alreadyViewedBiography = empty then set alreadyViewedBiography = false
if alreadyViewedBiography then
go "Contents no sound"
else
set alreadyViewedBiography = true
end if
end startMovie
on goBioPage whichPage
waitCursor
-- stopVoice
put 6 into firstPage -- NOTE: Change this constant to the first frame of the book
puppetTransition 2, 2, 16, true
go frame firstPage + whichPage - 1
normalCursor
end goBioPage
on goNearbyBioPage howMany
waitCursor
-- stopVoice
if howMany > 0 then
puppetTransition 2, 2, 16, true
else if howMany <0 then
puppetTransition 1, 2, 16, true
end if
go the frame + howMany
normalCursor
end goNearbyBioPage
--on printBio
-- hideAnnotation
-- LeoPrint label("BioPrintPages"), label("EndBioPrintPages"), "BIOGRAPH.EXE"
--end printBio
----------------------------------
------------------
on getGridSquareCenter Pixels, NumSquares, Square
set SquareSize = Pixels / NumSquares
return integer (Square * SquareSize - (SquareSize / 2))
end getGridSquareCenter
-----------------
on hideIndexhilite
global bioHiliteSprite
puppetSprite bioHiliteSprite, false
updateStage
end hideIndexhilite
on positionIndexHilite H, V
global bioHiliteSprite
puppetSprite bioHiliteSprite, false
set the locH of sprite bioHiliteSprite = H
set the locV of sprite bioHiliteSprite = V
updateStage
end positionIndexHilite
on HiliteIndexChoice Col,Row,numColumns,numRows
put the ClickOn into gridSprite
set H = getGridSquareCenter (the width of sprite gridSprite, numColumns, Col+1)
set V = getGridSquareCenter (the height of sprite gridSprite, numRows, Row+1)
put H + the left of sprite gridSprite into H
put V + the top of sprite gridSprite into V
positionIndexHilite H, V
end HiliteIndexChoice